﻿Public Class clsGtResultDetails
    Public Function getGtResultDetailsList(b_gt_sys_id As String, procedure_no As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.b_gt_result_details "
        szSql &= "where b_gt_sys_id = ? and procedure_no = ?"
        Return DBacs.ExecuteSql(szSql, -1, b_gt_sys_id, procedure_no)
    End Function

    Public Function getGtOperResultDetailsList(b_gt_sys_id As String, procedure_no As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.b_gt_result_details "
        szSql &= "where b_gt_sys_id = ? and procedure_no <> ?"
        Return DBacs.ExecuteSql(szSql, -1, b_gt_sys_id, procedure_no)
    End Function

End Class
